home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK1.toast / Development Kits (Disc 1) / Communications Toolbox / CTB Sample Code 1.0b16 / CTB Sources / Sources 2 / File Transfer Tool for CTB / FTTool.p < prev    next >
Encoding:
Text File  |  1989-10-06  |  1.1 KB  |  50 lines  |  [TEXT/MPS ]
  1. {************************************************************************************
  2. *
  3. *  Project Name:    FTTools
  4. *     File Name:    fttool.p
  5. *       Authors:    Rob Neville, Alex Kazim, Carol Lee, Byron Han
  6. *          Date:    May 17, 1989
  7. *
  8. *   Description:    
  9. *
  10. *************************************************************************************
  11. *
  12. *    Revision History:
  13. *        5/17/89 - Original version by Rob Neville (IIx)
  14. *        6/26/89 - Rev'd for b2 of Comm Toolbox
  15. *
  16. ************************************************************************************}
  17.  
  18. UNIT FTTool;
  19.  
  20. INTERFACE
  21. CONST
  22.     US_STR_ID            = 1;
  23.     FR_STR_ID            = 2;
  24.     BYRON_ID            = 1;
  25.     ROB_ID                = 2;    {Special Case Str# ids}
  26.     TRUE_ID                = 3;
  27.     FALSE_ID            = 4;
  28.     NUMOFSTRING            = 2;
  29.     STR_VALUE_OFFSET    = 3;    {Str# index where value strings begin}
  30.     MAX_STR                = 4;    {number of str in str# resource}
  31.     EST_MAX_LEN            = 256;    {Estimated maximum size of string}
  32.  
  33.  
  34. TYPE
  35.     ConfigHdl        =    ^ConfigPtr;
  36.     ConfigPtr        =    ^Config;
  37.     Config            =    RECORD
  38.         param1    :    BOOLEAN;
  39.         param2    :    BOOLEAN;
  40.     END;
  41.     
  42.     PrivateHdl         =    ^PrivatePtr;
  43.     PrivatePtr         =    ^Private;
  44.     Private            =    RECORD
  45.         param    :    LONGINT;
  46.     END;
  47.     
  48. IMPLEMENTATION
  49. END.     
  50.